home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TOPT11.ZIP / TOPTEN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-26  |  7KB  |  624 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     DWord    DWORD001
  20.     DWord    DWORD002
  21.     DWord    DWORD003
  22.     DWord    DWORD004
  23.     DWord    DWORD005
  24.     DWord    DWORD006
  25.     DWord    DWORD007
  26.     DWord    DWORD008
  27.     DWord    DWORD009
  28.     DWord    DWORD010
  29.     DWord    DWORD011
  30.     DWord    DWORD012
  31.     DWord    DWORD013
  32.     DWord    DWORD014
  33.     DWord    DWORD015
  34.     DWord    DWORD016
  35.     DWord    DWORD017
  36.     DWord    DWORD018
  37.     DWord    DWORD019
  38.     DWord    DWORD020
  39.     Integer  INTEGER001
  40.     Integer  INTEGER002
  41.     Integer  INTEGER003
  42.     String   STRING001
  43.     String   STRING002
  44.     String   STRING003
  45.     String   STRING004
  46.     String   STRING005
  47.     String   STRING006
  48.     String   STRING007
  49.     String   STRING008
  50.     String   STRING009
  51.     String   STRING010
  52.     String   STRING011
  53.     String   STRING012
  54.     String   STRING013
  55.     String   STRING014
  56.     String   STRING015
  57.     String   STRING016
  58.     String   STRING017
  59.     String   STRING018
  60.     String   STRING019
  61.     String   STRING020
  62.     String   STRING021
  63.     String   STRING022
  64.     String   STRING023
  65.     String   STRING024
  66.     String   STRING025
  67.     String   STRING026
  68.     String   STRING027
  69.     String   STRING028
  70.     String   STRING029
  71.     String   STRING030
  72.     String   STRING031
  73.     String   STRING032
  74.     String   STRING033
  75.     String   STRING034
  76.     String   STRING035
  77.     String   STRING036
  78.     String   STRING037
  79.     String   STRING038
  80.     String   STRING039
  81.     String   STRING040
  82.     String   STRING041
  83.     String   STRING043
  84.     Declare  Function FUNCTION001(String STRING042) String
  85.  
  86. ;------------------------------------------------------------------------------
  87.  
  88.     INTEGER001 = 0
  89.     STRING001 = U_Name()
  90.     INTEGER002 = 1
  91.     Print "    @X08          ___________________________________________________                    "
  92.     Print "     @X08   [@X0ATOP-TEN UPLOADERS / DOWNLOADERS -- COFFE MAN/PSION!@X08]                        "
  93.     Print "   @X08 εεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεεε                          "
  94.     Print "@X08 RecNum:@X03"
  95.     INTEGER003 = GetY()
  96.     GetAltUser 1
  97.     :LABEL001
  98.     If (-1 == CurUser()) Goto LABEL004
  99.     Inc INTEGER002
  100.     GetAltUser INTEGER002
  101.     If (U_Name() == STRING001) Then
  102.         Inc INTEGER001
  103.         If (INTEGER001 == 2) Then
  104.         Else
  105.         Endif
  106.         AnsiPos 20, INTEGER003
  107.         Print INTEGER002
  108.         If ((U_Bul() < DWORD010) && (U_Bdl() < DWORD020)) Then
  109.             Goto LABEL003
  110.         Endif
  111.         If (U_Bul() < DWORD010) Then
  112.             Goto LABEL002
  113.         Endif
  114.         If (U_Bul() > DWORD001) Then
  115.             DWORD010 = DWORD009
  116.             STRING011 = STRING010
  117.             DWORD009 = DWORD008
  118.             STRING010 = STRING009
  119.             DWORD008 = DWORD007
  120.             STRING009 = STRING008
  121.             DWORD007 = DWORD006
  122.             STRING008 = STRING007
  123.             DWORD006 = DWORD005
  124.             STRING007 = STRING006
  125.             DWORD005 = DWORD004
  126.             STRING006 = STRING005
  127.             DWORD004 = DWORD003
  128.             STRING005 = STRING004
  129.             DWORD003 = DWORD002
  130.             STRING004 = STRING003
  131.             DWORD002 = DWORD001
  132.             STRING003 = STRING002
  133.             DWORD001 = U_Bul()
  134.             STRING002 = U_Name()
  135.         ElseIf (U_Bul() > DWORD002) Then
  136.             DWORD010 = DWORD009
  137.             STRING011 = STRING010
  138.             DWORD009 = DWORD008
  139.             STRING010 = STRING009
  140.             DWORD008 = DWORD007
  141.             STRING009 = STRING008
  142.             DWORD007 = DWORD006
  143.             STRING008 = STRING007
  144.             DWORD006 = DWORD005
  145.             STRING007 = STRING006
  146.             DWORD005 = DWORD004
  147.             STRING006 = STRING005
  148.             DWORD004 = DWORD003
  149.             STRING005 = STRING004
  150.             DWORD003 = DWORD002
  151.             STRING004 = STRING003
  152.             DWORD002 = U_Bul()
  153.             STRING003 = U_Name()
  154.         ElseIf (U_Bul() > DWORD003) Then
  155.             DWORD010 = DWORD009
  156.             STRING011 = STRING010
  157.             DWORD009 = DWORD008
  158.             STRING010 = STRING009
  159.             DWORD008 = DWORD007
  160.             STRING009 = STRING008
  161.             DWORD007 = DWORD006
  162.             STRING008 = STRING007
  163.             DWORD006 = DWORD005
  164.             STRING007 = STRING006
  165.             DWORD005 = DWORD004
  166.             STRING006 = STRING005
  167.             DWORD004 = DWORD003
  168.             STRING005 = STRING004
  169.             DWORD003 = U_Bul()
  170.             STRING004 = U_Name()
  171.         ElseIf (U_Bul() > DWORD004) Then
  172.             DWORD010 = DWORD009
  173.             STRING011 = STRING010
  174.             DWORD009 = DWORD008
  175.             STRING010 = STRING009
  176.             DWORD008 = DWORD007
  177.             STRING009 = STRING008
  178.             DWORD007 = DWORD006
  179.             STRING008 = STRING007
  180.             DWORD006 = DWORD005
  181.             STRING007 = STRING006
  182.             DWORD005 = DWORD004
  183.             STRING006 = STRING005
  184.             DWORD004 = U_Bul()
  185.             STRING005 = U_Name()
  186.         ElseIf (U_Bul() > DWORD005) Then
  187.             DWORD010 = DWORD009
  188.             STRING011 = STRING010
  189.             DWORD009 = DWORD008
  190.             STRING010 = STRING009
  191.             DWORD008 = DWORD007
  192.             STRING009 = STRING008
  193.             DWORD007 = DWORD006
  194.             STRING008 = STRING007
  195.             DWORD006 = DWORD005
  196.             STRING007 = STRING006
  197.             DWORD005 = U_Bul()
  198.             STRING006 = U_Name()
  199.         ElseIf (U_Bul() > DWORD006) Then
  200.             DWORD010 = DWORD009
  201.             STRING011 = STRING010
  202.             DWORD009 = DWORD008
  203.             STRING010 = STRING009
  204.             DWORD008 = DWORD007
  205.             STRING009 = STRING008
  206.             DWORD007 = DWORD006
  207.             STRING008 = STRING007
  208.             DWORD006 = U_Bul()
  209.             STRING007 = U_Name()
  210.         ElseIf (U_Bul() > DWORD007) Then
  211.             STRING011 = STRING010
  212.             DWORD010 = DWORD009
  213.             DWORD009 = DWORD008
  214.             STRING010 = STRING009
  215.             DWORD008 = DWORD007
  216.             STRING009 = STRING008
  217.             DWORD007 = U_Bul()
  218.             STRING008 = U_Name()
  219.         ElseIf (U_Bul() > DWORD008) Then
  220.             STRING011 = STRING010
  221.             DWORD010 = DWORD009
  222.             DWORD009 = DWORD008
  223.             STRING010 = STRING009
  224.             DWORD008 = U_Bul()
  225.             STRING009 = U_Name()
  226.         ElseIf (U_Bul() > DWORD009) Then
  227.             STRING011 = STRING010
  228.             DWORD010 = DWORD009
  229.             DWORD009 = U_Bul()
  230.             STRING010 = U_Name()
  231.         ElseIf (U_Bul() > DWORD010) Then
  232.             DWORD010 = U_Bul()
  233.             STRING011 = U_Name()
  234.             Goto LABEL002
  235.         Endif
  236.         :LABEL002
  237.         If (U_Bdl() < DWORD020) Then
  238.             Goto LABEL003
  239.         Endif
  240.         If (U_Bdl() > DWORD011) Then
  241.             DWORD020 = DWORD019
  242.             STRING021 = STRING020
  243.             DWORD019 = DWORD018
  244.             STRING020 = STRING019
  245.             DWORD018 = DWORD017
  246.             STRING019 = STRING018
  247.             DWORD017 = DWORD016
  248.             STRING018 = STRING017
  249.             DWORD016 = DWORD015
  250.             STRING017 = STRING016
  251.             DWORD015 = DWORD014
  252.             STRING016 = STRING015
  253.             DWORD014 = DWORD013
  254.             STRING015 = STRING014
  255.             DWORD013 = DWORD012
  256.             STRING014 = STRING013
  257.             DWORD012 = DWORD011
  258.             STRING013 = STRING012
  259.             DWORD011 = U_Bdl()
  260.             STRING012 = U_Name()
  261.         ElseIf (U_Bdl() > DWORD012) Then
  262.             DWORD020 = DWORD019
  263.             STRING021 = STRING020
  264.             DWORD019 = DWORD018
  265.             STRING020 = STRING019
  266.             DWORD018 = DWORD017
  267.             STRING019 = STRING018
  268.             DWORD017 = DWORD016
  269.             STRING018 = STRING017
  270.             DWORD016 = DWORD015
  271.             STRING017 = STRING016
  272.             DWORD015 = DWORD014
  273.             STRING016 = STRING015
  274.             DWORD014 = DWORD013
  275.             STRING015 = STRING014
  276.             DWORD013 = DWORD012
  277.             STRING014 = STRING013
  278.             DWORD012 = U_Bdl()
  279.             STRING013 = U_Name()
  280.         ElseIf (U_Bdl() > DWORD013) Then
  281.             DWORD020 = DWORD019
  282.             STRING021 = STRING020
  283.             DWORD019 = DWORD018
  284.             STRING020 = STRING019
  285.             DWORD018 = DWORD017
  286.             STRING019 = STRING018
  287.             DWORD017 = DWORD016
  288.             STRING018 = STRING017
  289.             DWORD016 = DWORD015
  290.             STRING017 = STRING016
  291.             DWORD015 = DWORD014
  292.             STRING016 = STRING015
  293.             DWORD014 = DWORD013
  294.             STRING015 = STRING014
  295.             DWORD013 = U_Bdl()
  296.             STRING014 = U_Name()
  297.         ElseIf (U_Bdl() > DWORD014) Then
  298.             DWORD020 = DWORD019
  299.             STRING021 = STRING020
  300.             DWORD019 = DWORD018
  301.             STRING020 = STRING019
  302.             DWORD018 = DWORD017
  303.             STRING019 = STRING018
  304.             DWORD017 = DWORD016
  305.             STRING018 = STRING017
  306.             DWORD016 = DWORD015
  307.             STRING017 = STRING016
  308.             DWORD015 = DWORD014
  309.             STRING016 = STRING015
  310.             DWORD014 = U_Bdl()
  311.             STRING015 = U_Name()
  312.         ElseIf (U_Bdl() > DWORD015) Then
  313.             DWORD020 = DWORD019
  314.             STRING021 = STRING020
  315.             DWORD019 = DWORD018
  316.             STRING020 = STRING019
  317.             DWORD018 = DWORD017
  318.             STRING019 = STRING018
  319.             DWORD017 = DWORD016
  320.             STRING018 = STRING017
  321.             DWORD016 = DWORD015
  322.             STRING017 = STRING016
  323.             DWORD015 = U_Bdl()
  324.             STRING016 = U_Name()
  325.         ElseIf (U_Bdl() > DWORD016) Then
  326.             DWORD020 = DWORD019
  327.             STRING021 = STRING020
  328.             DWORD019 = DWORD018
  329.             STRING020 = STRING019
  330.             DWORD018 = DWORD017
  331.             STRING019 = STRING018
  332.             DWORD017 = DWORD016
  333.             STRING018 = STRING017
  334.             DWORD016 = U_Bdl()
  335.             STRING017 = U_Name()
  336.         ElseIf (U_Bdl() > DWORD017) Then
  337.             DWORD020 = DWORD019
  338.             STRING021 = STRING020
  339.             DWORD019 = DWORD018
  340.             STRING020 = STRING019
  341.             DWORD018 = DWORD017
  342.             STRING019 = STRING018
  343.             DWORD017 = U_Bdl()
  344.             STRING018 = U_Name()
  345.         ElseIf (U_Bdl() > DWORD018) Then
  346.             DWORD020 = DWORD019
  347.             STRING021 = STRING020
  348.             DWORD019 = DWORD018
  349.             STRING020 = STRING019
  350.             DWORD018 = U_Bdl()
  351.             STRING019 = U_Name()
  352.         ElseIf (U_Bdl() > DWORD019) Then
  353.             DWORD020 = DWORD019
  354.             STRING021 = STRING020
  355.             DWORD019 = U_Bdl()
  356.             STRING020 = U_Name()
  357.         ElseIf (U_Bdl() > DWORD020) Then
  358.             DWORD020 = U_Bdl()
  359.             STRING021 = U_Name()
  360.             Goto LABEL003
  361.         Endif
  362.         :LABEL003
  363.         Goto LABEL001
  364.     Endif
  365.     :LABEL004
  366.     If (Exist(PPEPath() + "TOPTEN.DAT") == 1) Then
  367.         Delete PPEPath() + "TOPTEN.DAT"
  368.     Endif
  369.     FCreate 1, PPEPath() + "TOPTEN.DAT", 2, 0
  370.     FPutLn 1, STRING002
  371.     FPutLn 1, STRING003
  372.     FPutLn 1, STRING004
  373.     FPutLn 1, STRING005
  374.     FPutLn 1, STRING006
  375.     FPutLn 1, STRING007
  376.     FPutLn 1, STRING008
  377.     FPutLn 1, STRING009
  378.     FPutLn 1, STRING010
  379.     FPutLn 1, STRING011
  380.     FPutLn 1, STRING012
  381.     FPutLn 1, STRING013
  382.     FPutLn 1, STRING014
  383.     FPutLn 1, STRING015
  384.     FPutLn 1, STRING016
  385.     FPutLn 1, STRING017
  386.     FPutLn 1, STRING018
  387.     FPutLn 1, STRING019
  388.     FPutLn 1, STRING020
  389.     FPutLn 1, STRING021
  390.     FPutLn 1, DWORD001
  391.     FPutLn 1, DWORD002
  392.     FPutLn 1, DWORD003
  393.     FPutLn 1, DWORD004
  394.     FPutLn 1, DWORD005
  395.     FPutLn 1, DWORD006
  396.     FPutLn 1, DWORD007
  397.     FPutLn 1, DWORD008
  398.     FPutLn 1, DWORD009
  399.     FPutLn 1, DWORD010
  400.     FPutLn 1, DWORD011
  401.     FPutLn 1, DWORD012
  402.     FPutLn 1, DWORD013
  403.     FPutLn 1, DWORD014
  404.     FPutLn 1, DWORD015
  405.     FPutLn 1, DWORD016
  406.     FPutLn 1, DWORD017
  407.     FPutLn 1, DWORD018
  408.     FPutLn 1, DWORD019
  409.     FPutLn 1, DWORD020
  410.     FClose 1
  411.     FOpen 1, PPEPath() + "TOPTEN.DAT", 0, 0
  412.     FGet 1, STRING002
  413.     FGet 1, STRING003
  414.     FGet 1, STRING004
  415.     FGet 1, STRING005
  416.     FGet 1, STRING006
  417.     FGet 1, STRING007
  418.     FGet 1, STRING008
  419.     FGet 1, STRING009
  420.     FGet 1, STRING010
  421.     FGet 1, STRING011
  422.     FGet 1, STRING012
  423.     FGet 1, STRING013
  424.     FGet 1, STRING014
  425.     FGet 1, STRING015
  426.     FGet 1, STRING016
  427.     FGet 1, STRING017
  428.     FGet 1, STRING018
  429.     FGet 1, STRING019
  430.     FGet 1, STRING020
  431.     FGet 1, STRING021
  432.     FGet 1, STRING022
  433.     FGet 1, STRING023
  434.     FGet 1, STRING024
  435.     FGet 1, STRING025
  436.     FGet 1, STRING026
  437.     FGet 1, STRING027
  438.     FGet 1, STRING028
  439.     FGet 1, STRING029
  440.     FGet 1, STRING030
  441.     FGet 1, STRING031
  442.     FGet 1, STRING032
  443.     FGet 1, STRING033
  444.     FGet 1, STRING034
  445.     FGet 1, STRING035
  446.     FGet 1, STRING036
  447.     FGet 1, STRING037
  448.     FGet 1, STRING038
  449.     FGet 1, STRING039
  450.     FGet 1, STRING040
  451.     FGet 1, STRING041
  452.     FClose 1
  453.     STRING032 = FUNCTION001(DWORD011)
  454.     STRING033 = FUNCTION001(DWORD012)
  455.     STRING034 = FUNCTION001(DWORD013)
  456.     STRING035 = FUNCTION001(DWORD014)
  457.     STRING036 = FUNCTION001(DWORD015)
  458.     STRING037 = FUNCTION001(DWORD016)
  459.     STRING038 = FUNCTION001(DWORD017)
  460.     STRING039 = FUNCTION001(DWORD018)
  461.     STRING040 = FUNCTION001(DWORD019)
  462.     STRING041 = FUNCTION001(DWORD020)
  463.     STRING022 = FUNCTION001(DWORD001)
  464.     STRING023 = FUNCTION001(DWORD002)
  465.     STRING024 = FUNCTION001(DWORD003)
  466.     STRING025 = FUNCTION001(DWORD004)
  467.     STRING026 = FUNCTION001(DWORD005)
  468.     STRING027 = FUNCTION001(DWORD006)
  469.     STRING028 = FUNCTION001(DWORD007)
  470.     STRING029 = FUNCTION001(DWORD008)
  471.     STRING030 = FUNCTION001(DWORD009)
  472.     STRING031 = FUNCTION001(DWORD010)
  473.     If (Exist(PPEPath() + "TOPTEN.DAT") == 1) Then
  474.         Delete PPEPath() + "TOPTEN.DAT"
  475.     Endif
  476.     FCreate 1, PPEPath() + "TOPTEN.DAT", 2, 0
  477.     FPutLn 1, STRING002
  478.     FPutLn 1, STRING003
  479.     FPutLn 1, STRING004
  480.     FPutLn 1, STRING005
  481.     FPutLn 1, STRING006
  482.     FPutLn 1, STRING007
  483.     FPutLn 1, STRING008
  484.     FPutLn 1, STRING009
  485.     FPutLn 1, STRING010
  486.     FPutLn 1, STRING011
  487.     FPutLn 1, STRING012
  488.     FPutLn 1, STRING013
  489.     FPutLn 1, STRING014
  490.     FPutLn 1, STRING015
  491.     FPutLn 1, STRING016
  492.     FPutLn 1, STRING017
  493.     FPutLn 1, STRING018
  494.     FPutLn 1, STRING019
  495.     FPutLn 1, STRING020
  496.     FPutLn 1, STRING021
  497.     FPutLn 1, STRING022
  498.     FPutLn 1, STRING023
  499.     FPutLn 1, STRING024
  500.     FPutLn 1, STRING025
  501.     FPutLn 1, STRING026
  502.     FPutLn 1, STRING027
  503.     FPutLn 1, STRING028
  504.     FPutLn 1, STRING029
  505.     FPutLn 1, STRING030
  506.     FPutLn 1, STRING031
  507.     FPutLn 1, STRING032
  508.     FPutLn 1, STRING033
  509.     FPutLn 1, STRING034
  510.     FPutLn 1, STRING035
  511.     FPutLn 1, STRING036
  512.     FPutLn 1, STRING037
  513.     FPutLn 1, STRING038
  514.     FPutLn 1, STRING039
  515.     FPutLn 1, STRING040
  516.     FPutLn 1, STRING041
  517.     FClose 1
  518.     Goto LABEL005
  519.     End
  520.     :LABEL005
  521.     End
  522.  
  523. ;------------------------------------------------------------------------------
  524.  
  525.     Function FUNCTION001(String STRING042) String
  526.  
  527.     FCreate 1, PPEPath() + "TEMMP.╧╧╧", 2, 0
  528.     If (STRING042 == "0") Then
  529.         FPutLn ""
  530.         FClose 1
  531.     ElseIf (Len(STRING042) <= 3) Then
  532.         FPutLn 1, STRING042
  533.         FClose 1
  534.     ElseIf (Len(STRING042) <= 6) Then
  535.         FPutLn 1, Left(STRING042, Len(STRING042) - 3), ",", Right(STRING042, 3)
  536.         FClose 1
  537.     ElseIf (Len(STRING042) <= 9) Then
  538.         FPutLn 1, Left(STRING042, Len(STRING042) - 6), ",", Mid(STRING042, 3, 3), ",", Right(STRING042, 3)
  539.         FClose 1
  540.     ElseIf (Len(STRING042) <= 12) Then
  541.         FPutLn 1, Left(STRING042, Len(STRING042) - 9), ",", Mid(STRING042, 3, 3), ",", Mid(STRING042, 6, 3), ",", Right(STRING042, 3)
  542.         FClose 1
  543.         Goto LABEL006
  544.     Endif
  545.     :LABEL006
  546.     FOpen 1, PPEPath() + "TEMMP.╧╧╧", 2, 0
  547.     FGet 1, STRING042
  548.     FClose 1
  549.     Delete PPEPath() + "TEMMP.╧╧╧"
  550.     FUNCTION001 = STRING042
  551.  
  552.     EndFunc
  553.  
  554.  
  555. ;------------------------------------------------------------------------------
  556. ;
  557. ; Usage report (before postprocessing)
  558. ;
  559. ; ■ Statements used :
  560. ;
  561. ;    2       End
  562. ;    67      Goto 
  563. ;    245     Let 
  564. ;    5       Print 
  565. ;    33      If 
  566. ;    3       FCreate 
  567. ;    2       FOpen 
  568. ;    9       FClose 
  569. ;    41      FGet 
  570. ;    85      FPutLn 
  571. ;    3       Delete 
  572. ;    2       Inc 
  573. ;    1       AnsiPos 
  574. ;    2       GetAltUser 
  575. ;    1       EndFunc
  576. ;
  577. ;
  578. ; ■ Functions used :
  579. ;
  580. ;    1       -
  581. ;    10      +
  582. ;    3       -
  583. ;    6       ==
  584. ;    4       <
  585. ;    4       <=
  586. ;    20      >
  587. ;    33      !
  588. ;    1       &&
  589. ;    7       Len(
  590. ;    3       Mid()
  591. ;    3       Left()
  592. ;    3       Right()
  593. ;    22      U_Name()
  594. ;    22      U_Bdl()
  595. ;    22      U_Bul()
  596. ;    10      PPEPath()
  597. ;    2       Exist()
  598. ;    1       GetY()
  599. ;    1       CurUser()
  600. ;
  601. ;------------------------------------------------------------------------------
  602. ;
  603. ; Analysis flags : R
  604. ;
  605. ; R - Read user ■ 5
  606. ;     User records are read, this may signify that someone wants to get
  607. ;     various informations about a user (for example his password), but
  608. ;     this may also be normal for a program accessing user records (for
  609. ;     example a User Editor)
  610. ;     ■ Search for : GETALTUSER
  611. ;
  612. ;------------------------------------------------------------------------------
  613. ;
  614. ; Postprocessing report
  615. ;
  616. ;    0       For/Next
  617. ;    0       While/EndWhile
  618. ;    32      If/Then or If/Then/Else
  619. ;    0       Select Case
  620. ;
  621. ;------------------------------------------------------------------------------
  622. ;                 AEGiS Corp - Break the routines, code against the machines!
  623. ;------------------------------------------------------------------------------
  624.